Option Explicit
Sub B_Sample001()
    Dim myRng As Range
    Set myRng = Range("A1")	'Nxs
    With myRng
        .Clear			'xs檺M
        .Value = "2002"		']w
        'ǳƨ즹
        MsgBox "xs" & .Address & "Ȭ" & .Value & "C"
    End With
    Set myRng = Nothing		'
End Sub
